* lisp/calc/calc-units.el (calc-convert-exact-units): Improve the

  simplification.

diff --git a/lisp/calc/calc-units.el b/lisp/calc/calc-units.el
index 33cbcac7a2db33bee6b7239e3afa3369f4bc7c1b..f3d02340fe32cb3a3da956c48527a66be96b878f 100644 (file)
--- a/lisp/calc/calc-units.el
+++ b/lisp/calc/calc-units.el
@@ -544,7 +544,7 @@ If COMP or STD is non-nil, put that in the units table instead."
        (let ((res
               (list '* (math-mul (math-remove-units expr)
                                  (math-simplify-units
-                                  (list '/ old-units units)))
+                                  (math-to-standard-units (list '/ old-units units) nil)))
                     units)))
          (calc-enter-result 1 "cvxu" res))))))